﻿Imports WSEntidades
Imports Utilerias
Imports WSDatos

Public Class ProcesosBL

    Public Function GetListadoProcesos(ByVal tokenConexion As String, ByRef codigoResp As Integer, ByRef mensajes As String) As List(Of ProcesosBE)
        mensajes = ""
        Dim ProcesosDAL As ProcesosDAL = New ProcesosDAL("")
        Dim listProcesosBE As List(Of ProcesosBE)
        Try
            tokenConexion = RijndaelSimple.desencriptaDefault(tokenConexion)
            ProcesosDAL = New ProcesosDAL(tokenConexion)
            listProcesosBE = ProcesosDAL.getListadoProcesos()
            If (listProcesosBE IsNot Nothing) Then
                codigoResp = 0
                mensajes = "Se obtuvo el listado de procesos con éxito."
                Return listProcesosBE
            Else
                codigoResp = 256
                mensajes = "No se obtuvo el listado de procesos."
                Return Nothing
            End If
        Catch ex As Exception
            Log.LogException(ex, "ProcesosBL.GetListadoProcesos")
            codigoResp = 999
            mensajes = mensajes & "Excepción al obtener el listado de procesos: " & ex.Message
            Return Nothing
        Finally
            ProcesosDAL = Nothing
            listProcesosBE = Nothing
        End Try
    End Function
End Class
